Within RA2002 there is an optional feature, called SMF$XT20/21 SMF user exits, to trap any SMF records. An installation has very often the need to go over x-million of SMF type 80 records. The supplied exits allow by using the enhanced filtering technique even to filter data from relocatable sections as well.
Sample IFASMFDL
//SMFEXTR EXEC PGM=IFASMFDL (OR IFASMFDP)
//STEPLIB DD DISP=SHR,DSN=RA2002.V3R7M0.LINKLIB
//SMFOUT DD DUMMY,DSN=&&SMFFILE,
// DISP=(,PASS),
// DCB=(LRECL=32760,RECFM=VBS,BLKSIZE=0),
// UNIT=SYSDA,SPACE=(TRK,(1,1))
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LSNAME(IFASMF.LOCAL.SEC,OPTIONS(DUMP))
ABEND(NORETRY)
OUTDD(SMFOUT,TYPE(80))
USER2(SMF$XT20)
USER3(SMF$XT21)
/*
//FLTPRINT DD SYSOUT=*
//FLTINPUT DD *
+INCLUDE COND=((5,2,HX,EQ,1E02))
+INCLUDE COND=. . . . .
.
.
.
+INCLUDE COND=. . . . .
/*
Sample using enhanced filtering techniques to extract data from relocatable sections
//FLTPRINT DD SYSOUT=*
//FLTINPUT DD *
+INCLUDE COND=((0006,1,HX,EQ,50),AND,
((0001(0004,H38,H40,I1,0),1,HX,EQ,04),AND,
(0001(0004,H38,H40,I1,2),01,HX,EQ,80)),AND,
((0001(0004,H38,H40,I1,0),1,HX,EQ,01),AND,
(0001(0004,H38,H40,I1,2),00,CG,EQ,RA**)))
//
Sample of an SMF type 80 record with the relative location offset „H38“. This is the offset to the relocatable section.
Sample of an SMF type 80 record with the relative location offset „H40“. This is the offset to the number of relocatable sections within the SMF record.
Sample of an SMF type 80 record showing the data in the relocatable section:
e.g. Relocation section type x’01’ followed by a length byte, followed by the dataset „SOMMVS.SGOSPNLS“ accessed. After that you can see the relocation type X’03’ etc. following. There is no way to extract such data via the standard SORT programs until such features will ever built in.
* The SMF$xxxx exits are licensed programs and must be ordered.